home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Math Visin v2.1 disk 1.adf / Arexx.WB / Contour / Convolves / Average9 < prev    next >
Text File  |  1992-02-12  |  249b  |  11 lines
  1. /* Average    Take average of 3-unit squares  8-Mar-90 dh */
  2. ADDRESS "MathVision"
  3.  
  4. OverPlot "T"
  5. ContourScaling "F"
  6. ContourClipping "F"
  7.  
  8. F0 "WPix(px,py,(FA(px,py-1)+FA(px,py)+FA(px,py+1))/3)"
  9. FA "(RPix(a1-1,a2)+RPix(a1,a2)+RPix(a1+1,a2))/3"
  10. PlotContour
  11.